home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / c_runner / mex02.bas < prev    next >
BASIC Source File  |  1993-11-30  |  835b  |  20 lines
  1. 100 '
  2. 110 DEFINT A-Z:CLS:MOUSE 0:MOUSE 1,120,120,1:INPUT "LOAD FILE NAME",G$:INPUT "SAVE FILE NAME",B$
  3. 120 LOAD@ "B:"+G$+".TIF",(0,0):K=10
  4. 130 PRINT "START POINT"
  5. 140 GOSUB *MOUSE
  6. 150 SX=X:SY=Y
  7. 170 PRINT "GOAL 1 POINT":GOSUB *MOUSE:GX1=X:GY1=Y
  8. 180 PRINT "GOAL 2 POINT":GOSUB *MOUSE:GX2=X:GY2=Y
  9. 190 PRINT "Y UPPER":GOSUB *MOUSE:YH=Y
  10. 200 PRINT "Y LOWER":GOSUB *MOUSE:YL=Y
  11. 202 PRINT "EX1T 1";:LINE INPUT F$:PRINT "EXIT 2":LINE INPUT F1$
  12. 210 SAVE@ "B:"+B$+".TIF",(0,YH)-(639,YL)
  13. 220 OPEN "O",#1,"A:"+B$+".MDA"
  14. 230 PRINT #1,SX:PRINT #1,SY:PRINT #1,GX1:PRINT #1,GY1:PRINT #1,GX2:PRINT #1,GY2:PRINT #1,YH:PRINT #1,YL:PRINT #1,CHR$(&H22)+"03:00:00"+CHR$(&H22):PRINT #1,"ADX"
  15. 231 PRINT #1,F$:PRINT #1,F1$
  16. 240 CLOSE #1
  17. 250 END
  18. 1000 *MOUSE
  19. 1010 X=MOUSE(0):Y=MOUSE(1):IF MOUSE(2,0)<>0 THEN FOR T=0 TO 3000:NEXT:RETURN ELSE 1010
  20.